home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / buttons / slyded / slide.frm < prev    next >
Text File  |  1993-11-29  |  4KB  |  169 lines
  1. VERSION 2.00
  2. Begin Form Slide 
  3.    ClientHeight    =   2850
  4.    ClientLeft      =   1755
  5.    ClientTop       =   2100
  6.    ClientWidth     =   6165
  7.    ControlBox      =   0   'False
  8.    Height          =   3510
  9.    Left            =   1710
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   2850
  13.    ScaleWidth      =   6165
  14.    Top             =   1485
  15.    Width           =   6255
  16.    WindowState     =   2  'Maximized
  17.    Begin GRAPH Graph1 
  18.       DragMode        =   1  'Automatic
  19.       GraphType       =   6  'Line
  20.       Height          =   2085
  21.       Left            =   3090
  22.       TabIndex        =   3
  23.       Top             =   330
  24.       Visible         =   0   'False
  25.       Width           =   2055
  26.    End
  27.    Begin TextBox Text3 
  28.       Height          =   645
  29.       Left            =   240
  30.       TabIndex        =   2
  31.       Text            =   "Bullets"
  32.       Top             =   1980
  33.       Visible         =   0   'False
  34.       Width           =   1185
  35.    End
  36.    Begin TextBox Text2 
  37.       Height          =   645
  38.       Left            =   240
  39.       TabIndex        =   1
  40.       Text            =   "Text"
  41.       Top             =   1200
  42.       Visible         =   0   'False
  43.       Width           =   1185
  44.    End
  45.    Begin TextBox Text1 
  46.       Height          =   675
  47.       Left            =   300
  48.       MultiLine       =   -1  'True
  49.       TabIndex        =   0
  50.       Text            =   "Title"
  51.       Top             =   240
  52.       Visible         =   0   'False
  53.       Width           =   1125
  54.    End
  55.    Begin Menu File 
  56.       Caption         =   "&File"
  57.       Begin Menu Save 
  58.          Caption         =   "&Save and Exit"
  59.       End
  60.       Begin Menu Cancel 
  61.          Caption         =   "&Cancel and Exit"
  62.       End
  63.    End
  64.    Begin Menu Help 
  65.       Caption         =   "&Help"
  66.       Begin Menu HelpIndex 
  67.          Caption         =   "Help &Index"
  68.       End
  69.       Begin Menu About 
  70.          Caption         =   "&About"
  71.       End
  72.    End
  73. End
  74. Dim DragX As Single, DragY As Single, SizeMode As Variant
  75. Dim Want2Size As Variant
  76.  
  77.  
  78. Sub Close_Click ()
  79.     Unload Slide
  80. End Sub
  81.  
  82. Sub Close1_Click ()
  83.    Unload Slide
  84. End Sub
  85.  
  86. Sub Form_DragDrop (Source As Control, X As Single, Y As Single)
  87.     Source.Move (X - DragX), (Y - DragY)
  88. End Sub
  89.  
  90. Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  91.     SizeMode = False
  92.     Want2Size = False
  93.     'Label7.Caption = "SizeMode = " & SizeMode
  94. End Sub
  95.  
  96. Sub Text1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  97.     If (Button = 1) And (Not SizeMode) Then
  98.      Text1.MousePointer = 1
  99.      Text1.Drag 1
  100.      DragX = X
  101.      DragY = Y
  102.     End If
  103.     If (Button = 1) And (SizeMode) Then
  104.      Want2Size = True
  105.      'Label8.Caption = "Want2Size = " & Want2Size
  106.     End If
  107.  
  108. End Sub
  109.  
  110. Sub Text1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  111.   SizeMode = True
  112.   If ((X >= 0) And (X <= 100)) Then
  113.    If (Y >= 0) And (Y <= 100) Then
  114.     Text1.MousePointer = 8
  115.    ElseIf ((Y >= (Text1.Height - 200)) And (Y <= Text1.Height)) Then
  116.     Text1.MousePointer = 6
  117.    Else
  118.     Text1.MousePointer = 9
  119.    End If
  120.  
  121.   ElseIf ((X >= (Text1.Width - 200)) And (X <= Text1.Width + 400)) Then
  122.    
  123.    If (Y >= 0) And (Y <= 100) Then
  124.     Text1.MousePointer = 6
  125.    ElseIf ((Y >= (Text1.Height - 200)) And (Y <= Text1.Height + 400)) Then
  126.     Text1.MousePointer = 8
  127.     If Want2Size Then
  128.      Text1.Width = X
  129.      Text1.Height = Y
  130.     End If
  131.  
  132.    Else
  133.     Text1.MousePointer = 9
  134.     If Want2Size Then
  135.      Text1.Width = X
  136.     End If
  137.  
  138.    End If
  139.  
  140.   ElseIf ((Y >= 0) And (Y <= 100)) Or ((Y >= (Text1.Height - 200)) And (Y <= Text1.Height)) Then
  141.    Text1.MousePointer = 7
  142.  
  143.   Else
  144.  
  145.    If Not Want2Size Then
  146.     Text1.MousePointer = 1
  147.     SizeMode = False
  148.     Want2Size = False
  149.    End If
  150.   
  151.   End If
  152. 'Label1.Caption = "X = " & X
  153. 'Label2.Caption = "Y = " & Y
  154. 'Label3.Caption = "Top = " & Text1.Top
  155. 'Label4.Caption = "Left = " & Text1.Left
  156. 'Label5.Caption = "Height = " & Text1.Height
  157. 'Label6.Caption = "Width = " & Text1.Width
  158. 'Label7.Caption = "SizeMode = " & SizeMode
  159. 'Label8.Caption = "Want2Size = " & Want2Size
  160.  
  161.  
  162. End Sub
  163.  
  164. Sub Text1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  165.     Text1.Drag 2
  166.     Want2Size = False
  167. End Sub
  168.  
  169.